DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


1 11 


**F ILE**1De* 1 MAGECTRE 


RR LLLLLLLLLL 
RR LLLLLLLLLL 


hab ah abab al ab ad bad adab 
pr ew ew fa Se ee ee ee 
ccc 
eccacc 
ca ca ca 
ca ca ca 
ca eccacac 
ca eccacc 
cc ca 
cc ca 
@Qaeaaacaacaacaacacaca 
@Qaaacaacacaacacaccaca 
i 
es 
— 
— 


ee ee 
ee ee ee 


be 
laa 

ee 

ww wu 
Vv wre) 
pwrw) (wre) 
(wre) Vu 
pwrw) vu 
Vv vw 
VV ww 
Vv ww 


VVYOVYVUYUYUUUWY 
VCUWIWIUWUWU WI 


Aad udu 
VSN) Lat Lad 
Ask Us (wears) 
(verre) WwW Abs kd 
Aa kd ta tuts 
su wud A 
Bata tas tk 


i 

: 222222222222 

EEF FEEESEEEEEE 
== 

seEESEEEEEEEEE 


= ones 
— _—— 
oS ae ak ad nd Od Od Od Od Od Ot OG 
ee ne ee ed Od Od Od Od Od Ok Od Oe 
—e “— 
=“ Caen 


nn Mn 
“wn mmnnm 
“wn nn mn 
nn Adhd “wn 
nn “wn Adhd 
nn nn nw 
“wn “nn nw 
mn mn mown 
MMnn “wn 
MNMmnn nn 
—— son 


a 
a4 
~~) 
— 
—_ 
I 
a! 
— 
— 
dao 


Page 


15-SEP-1984 23:53:05 VAX/VMS Macro v04-00 


J1 
EVELS 


- IMAGE CONTROL 
if 
10N 
E 
MAGE 


Vvourre Mew 


DOI OInO 


KK NUNN 


aan a 
PATMNOP- OO 


ee ee Oe Oe Oe ee 


: 
5 
3 
* 
K 


{RAGE CTR 


K 11 
IMAGE CTRL = IMAGE CONTROL 15-SEP-1984 5 VAX/VMS ™ p 
rivet arse TSRS SS:27:83 HREIMSE Hegre yORrOo = Page 


TITL MAGE - IMAGE CONTROL 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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* * 
* + 
* * 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND coruee ® 
* ONLY IN accoroon CE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
* INCLUSION OF THE ABOVE iS githod NOTICE. THIS SOFTWARE OR ANY oa R ® 
* COPIES THEREOF ay NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
:* * 
:* * 
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re INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; IMAGE CONTROL DCLS COMMAND EXECUTION 
: CONTINUE IMAGE EXECUTION 

: DEBUG IMAGE EXECUTION 

: STOP IMAGE EXECUTION 


; DO. N. CUTLER 4-APR-77 
; ; MODIFIED BY: 


v03-006 wus0Or} Harold Schultz 04-Jun-1984 
When finished with skipping data records in the input 
stream of an image being run down, set EOL in the input 
buffer following the last record read. 


v03-005 wusoe>? Harold Schultz 21-Mar-1984 
e PRC_V_IRUNDWN to indicate whether or not an image 
been fun down by DCL 


v03-004 Hbeet 4 Harold Schultz 09-Mar-1984 
When shutting down an image, check if device is a 
record-oriented device rather than a terminal. 


v03-003 PCG0005 Peter George 15-Jun-1983 
Create DCLSRMSRUNDWN. 


v03-002 PCG0004 Peter George 24-Feb-1983 
Remove SETBIT WRK_V ®NOSTAT from CONTINUE and STOP. 


v03-001 PCG0003 Peter George 21-Jan-1983 
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28 $ Remove code that is duplicated in DCL$LOGOUT 
26 3 from DCLSSTOP. 
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CONTINUE IMAGE EXECUTION 4-SEP-1984 DCL.SRCJIMAGECTRL.MAR; 1 

«SBTTL CONTINUE IMAGE EXECUTION 
DCLSCONTINUE = CONTINUE IMAGE EXECUTION 3 
tana ine IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE CONTINUE DCLS | 
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IMAGECTRLE = IMAGE CONTR 15-SEP-1984 23:53: AX/VM 4- 
Have 394 E 5-SEP-19 83:23:03 X/VMS Macro Vv04-00 Page b> 
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INPUTS: 


OUTPUTS: 


IF A PREVIOUS Wee WAS INTERRUPTED VIA A CONTROL Y AST, THEN THE 
CURRENT COMMAND CONTEXT IS REMOVED FROM THE STACK AND CONTROL IS 
RETURNED TO THE IMAGE. OTHERWISE THIS COMMAND IS A NOPERATION. 


sENABL LSB 
DCLSCONTINUE:: 
BSBW ieee MOD 


:C¢ 
ODE st 
BBC #PRC_V_PRIV, _ 8 PLAGE E NS 


$ OBR IF UNPRIVILEGED IMAGE 
eseu RESTORE” PRIV 


03 OOAF CB 00 e 
OODE : IMAGE PRIVILEGE 
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-SBTTL DEBUG LMAGE EXECUTION 
; DCLSDEBUG = DEBUG IMAGE EXECUTION 
yt de IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE DEBUG DCLS 


; INPUTS: 
; RB = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
: R9 = ADDRESS OF SCRATCH STACK. 
; R10 = BASE ADDRESS OF COMMAND WORK AREA. 
; R11 = BASE ADDRESS OF PROCESS WORK AREA. . 
: OUTPUTS: 
; IF A PREVIOUS IMAGE WAS INTERRUPTED VIA A CONTROL Y AST, THEN A 
; DEBUG EXCEPTION IS GENERATED FOR THE IMAGE. OTHERWISE THIS COMMAND 
: 1S A NOPERATION. 
DCLSDEBUG: : ;DEBUG IMAGE EXECUTION 
BSBwW [TEST PREVIOUS MODE 


TESTMODE 

MOVAB 8*20$,16(FP) “RESET S 

ASHL  #PSLS$V_PRVMOD,#<PSLS$C_SUPER@2>! = ;CONSTRUCT PROPER PSL 
PSL$C_OSER,-(SP) 


AST RETURN ADDRESS 
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QOAC 30 
10 AD 2D'AF 3 
ce @ 6. 
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0 
0 
0 
0 
0 
6 
FO AF OF 0 PUSHAB 10S SET PC 
02 $8 REI : 
003 
4 : CONTRCL IS REGAINED AT THIS POINT WITH: 
00 : 0O(SP) = NUMBER OF AST ARGUMENTS (ALWAYS 5). 
02 ; 04(5P) = AST PARAMETER. 
002 ; O8(SP) = SAVED RO. 
002 ; 12(SP) = SAVED R1. 
002 : 16(SP) = IMAGE PC. 
02 ; 20(SP) = IMAGE PSL. 
op : 
5E 08 CO 009 20$: ADDL 4#8,SP ;REMOVE NUMBER OF ARGUMENTS AND PARAMETER 
03 BA 00 POPR #*M<RO,R1> TRESTORE SAVED REGISTERS 
7E 066C 8F 3C 003 MOVZWL #SS$_DEBUG.-(SP) [SET EXCEPTION NAME 
93 dD 003 PUSHL # [SET NUMBER OF EXCEPTION ARGUMENTS 
00000000°9F 17 005 IP Q¥EXESREFLECT SREFLECT EXCEPTION 
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.SBTTL STOP IMAGE EXECUTION 
> DCLSSTOP = STOP IMAGE EXECUTION 
THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE STOP DCLS 
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CONTROL 
GE EXEC 
O3F 160 
F161 
F 16¢ 
F 163: 
0 F 164: 
-) 36S 2 
F 166 3 
09 : 4 : INPUTS: 
003F 189 ; RB = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
OO3F 1 p : RJ = ADDRESS OF SCRATCH STACK. 
99 fa. R10 = BASE ADDRESS OF COMMAND WORK AREA. 
9 F \2¢ ; R11 = BASE ADDRESS OF PROCESS WORK AREA. 
09 : Vr ; OUTPUTS: 
OO3F 176: IF A PROCESS NAME OR IDENTIFICATION IS SPECIFIED, THEN THAT PROCESS IS 
O03 77 ; DELETED. 
003F 158 : IF THE JOB IS A NONINTERACTIVE JOB, THEN THE JOB IS LOGGED OFF THE SY 
O03F 180 : WITH A STATUS OF NORMAL CQMPLETION. OTHERWISE ALL INDIRECT FILE LEVELS 
O3F 181 F UNSTACKED AND A TEST IS MADE TO DETERMINE IF AN IMAGE WAS INTERRUPTED VIA 
OO3F 1 : : A CONTROL C/Y. IF A PREVIOUS IMAGE WAS INTERRUPTED, THEN THE CONTEXT OF THE 
OO3F 1838: RUN COMMAND THAT INITIATED IMAGE EXECUTION IS REMOVED FROM THE STACK AND 
OO3F 184: RMS-32 IS CALLED TO CLOSE ALL OPEN IMAGE FILES. OTHERWISE NO OPERATION IS 
OO3F «185: PERFORMED. 
003F 186 :- 
GO3F 187 
OO3F 188 DCLSSTOP:: ySTOP IMAGE EXECUTION 
FFBE' 30 OO3F 189 BSBW DCLSGETDVAL [GET DESCRIPTOR VALUES 
55 04 D1 0042 190 CMPL § #PTR_K_ENDLINE,RS ‘END OF LINE? 
3E 12 0045 191 BNEQ 4 :IF NEQ NO 
5C AB ODS) «(0047 198 10$: TSTL PRC_L_INDEPTH(R11) : INDIRECT LEVEL ZERO? 
05 13 004A 19 BEQ 0$ [IF EQL YES 
FFB1" 30 004C 19% BSBW  DCLSUNSTACK SUNSTACK INDIRECT LEVEL 
F6 3611 «O04F «6195 BRB 10$ ; 
06 €1 0051 196 20$: BBC #PRC_V_MODE,- [IF SET, NONINTERACTIVE JOB 
03 68 AB 0053 «197 PRC_@ FLAGS(R11),258 =: 
FFA7" 31 0056 198 RW DCLSABORT [LOG PROCESS OUT 
0070 30 0059 199 25$ BSBW  =TESTMODE :TEST PREVIOUS MODE 
SA FC AA b0 005¢ 200 MOVL  WRK_L SAVFP(R10),R10  § ;RESTORE SAVED WRK ADDRESS 
0151 30 006 01 BSBW DCLSSAUTDOWN SCLOSE FILES OF PREVIOUS IMAGE 
00000000'GF 04 006 0g CLRL © GC TLSGL_CLINTOWN [ZERO CLINT OWN STORAGE POINTER 
00000000'°GF 04 0069 0 G*CTLSGL-DCLPRSOWN [ZERO DCL PARSE OWN STORAGE 
6 4 SRUNDWN_S #PSLSC-USER “RUN DOWN PREVIOUS IMAGE 
18 8A 0078 205 #<PRC_M_EXEONLY ! PRC_M_PRIV>,- ;SINCE IMAGE IS NOW GONE 
OOAF CB 007A “6 PRC_B-FCAGS2(R1 sNO NEED TO PROTECT IT 
070 20 CLRBIT PRCV~IRUNDWN,PRC_B_IMGFLAG(R11) ;INDICATE THAT IMAGE 1S RUNDOWN 
5D 5A 00 0081 208 MOVL RIOTFP SRESET FP $0 VLEVEL WRK 1S DEALLOCATED 
084 209 [ON RETURN TO DCLSRESTART. 
05 0084 210 RSB ; 
085 211 
085 19 : 
085 213 : DELETE PROCESS 
a 
794 OBS 16 40$: CLRL = = (RO) TCLEAR PROCESS IDENTIFICATION 
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STOP IMAG 
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; COPY ety OF SCRATCH DESCRIPTOR 


; COMMAND QUALIFIER SPECIFIED? 
EQ NO 


N 
GET VALUE goes 
;SAVE VALUE PARAM 


ETERS 
ANY MORE CHARACTERS TO CONVERT? 


:IF LSS NO 
SEARCH FOR HEX Stan tence MATCH 


sSCALE ACCUMULATED RESULT 


CLEAR DESCRIPTOR ADDRESS 
SAVE PROCESS NAME PARAMETERS 
;DELETE PROCESS 


SET INVALID VALUE SYNTAX STATUS 
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MODE 27860-1382 33:27:93 DCL.SRCJIMAGECTRL MAR; 1 - « 
4 .SBTTL TEST PREVIOUS MODE 

4g ; SUBROUTINE TO TEST PREVIOUS MODE AND DISABLE CONTROL Y AST 

44° 

45 TESTMODE: TEST PREVIOUS MODE 

46 SETBIT PRC V DISABL » PRC_W_FLAGS(RI1) DISABLE CONTROL AST 

4 BBCC PRO_0_YLEVEL,PRC_O_FLAGS(R11),10$ z1F CLR, NOT "al CONTROL Y/C LEVEL 
$8 BBC #PSLSV aarti apr Prt _C_ SAVAP(R115,10$ : IF ER, PREVIOUS MODE SUPERVISO 
49 mova WRK_L  SAVAPCRI ) ,PRCWL =SAVAPCRIT) sREST TORE ARGUMENT AND FRAME POINTE 
7 

38 t PREVIOUS MODE SUPERVISOR 

55° 

36 10S: TSTL (SP)+ :REMOVE RETURN FROM STACK 

3 status NORMAL [SET COMPLETION STATUS 
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ie ~SBTTL SAVE/RESTORE IMAGE PRIVILEGES 


£9 ; DCLSSAVE_PRIVS - Save PRIVILEGED MAGE PRIVILEGES 
E9263: T IMAGE PRIVILEGES TO PROCESS PRIVILEGES 
E9 ‘ ; RESTORE_PRIVS = RESTORE BR PRIVILEGED IMAGE PRIVILEGES FROM 
£9 ; 
E9 oF : INPUTS: 
£9 $3 ; R11 = BASE ADDRESS OF PROCESS WORK AREA. 
£9 ; PRC_Q_SAVEPRIV(R11) = SAVED IMAGE PRIVILEGE TO BE USED BY 
34 , ; RESTORE_PRIV 
33 3 i : outputs 
£9 275 RO,R1,R2 DESTRO OYED oT HER S PRESERVED 
£9 18: : PRC_Q_SAVEPRIV(R11) = PREVIOUS VALUE OF IMAGE PRIVILEGES 
OE9 28 BCLSSAVE_PRIVS:: 
0&9 27 SSETPRV_S PRMFLG=#1,- _;READ PROCESS PERMANENT PRIVILEGES 
£9 PRVPRV=PRC_Q_SAVEPRIV(R11) 
OFA 1 RESTORE -PRIVS: 
7E 01 CE OOFA MNEGL #1,-(SP) ;FORM MASK OF ALL PRIVS FOR DISABLE 
7 1 cE OFD MNEGL #1.=(SP) 
5 — 7E€ 010 4 MOVAG =(§P),R2 ;RESERVE 2ND MASK, R2 = 
19 5 SSETPRV_S Favabecst 5, _:DISABLE ALL PROCESS PRIVILEGES 
10 Hy PRV=(R2) : SAVING OLD ¢ 
011 88 SSETPRV_S ENGFLG=A #1,-  _:ENABLE THE CAVED PRIVILEGES 
11 89 PRVADR=PRC_0 sAVEPRIV (R11) 
00E8 CB 62 7D 0124 290 MOVa = (R2),,PRC_Q “SAVEBRIV(RIT) SAVE PREVIOUS PRIVILEGES 
SE c0 oi 9 31 ADDL #16,5P TCLEAN OFF 2 PRIV MASKS 


IMAGE CTRL = IMAGE CONTROL 15-SEP-1984 23:53:05 VAX/VMS Macro V04-00 Page 1 
yoes650 RUN DOWN IMAGE AND INDIRECT LEVELS 4-SEP-1984 33:27:80 LOCLY SRCIIMAGECTRL MAR: 1 = (8) 
p 34 = .SBTTL RUN DOWN IMAGE AND INDIRECT LEVELS 
| p $8 3 DCLSRUNDOWN = RUN DOWN IMAGE AND INDIRECT LEVELS 
12D 38 ; THIS SUBROUTINE I$ CALLED TO CHECK WHETHER INDIRECT LEVELS SHOULD BE RUN DOWN 
: 99 ; AND TO CLOSE RMS=32 FILES AND RUN DOWN THE PREVIOUS IMAGE. 
12D $1 3; INPUTS: 
12D gi 
12D 3 NONE. 
12D 4: 
1g 5 ; OUTPUTS: 
12D 0? ; If THE CURRENT LEVEL IS CONTROL Y/C, THEN ALL INDIRECT FILES ARE UNSTACKED. 
12D 8; IF THE PREVIOUS MODE WAS USER, THEN THE USER IMAGE EXIT HANDLERS ARE | 
p 99 ; EXECUTED. THE PREVIOUS IMAGE [S ALWAYS RUNDOWN. | 
p 1 -ENABL LSB 
12D 18 DCLSRUNDWNI: : ;RUN DOWN BUT PRESERVE INDIRECT LEVEL | 
50 AO'AF 9E gi D 314 MOVAB 8208.0 :SET EXIT HANDLER RETURN ADDRESS | 
04 11 0131 15 BRB $ ; | 
a ; 19 DCLSRUNDOWN: : ;RUN DOWN IMAGE AND INDIRECT LEVELS | 
50 96'AF 9E 01 18 MOVAB_ 8*10$,R0 :SET EXIT HANDLER RETURN ADDRESS | 
0137 19 5$: SETBIT PRC_V_DISABL,PRC_W FLAGS(R11) {DISABLE CONTROL Y/C AS *S | 
60 68 AB «(0B OCESS:s«COO 0 BBCC #PRO_O_YLEVEL,PRC_Q_FLAGS(R11),20$ ; IF NOT AT CONTROL Y/C LEVEL | 
DD 014 1 PUSHL RO 7PUSH PROPER RETURN ADDRESS 
50 DO 014 : OVL” PRC _L SAVAP(RI1) RO [GET ADDRESS OF PREVIOUS PSL 
60 El 14 BBC #PSC$V_CURMOD,(RO),10$ <IF CLR, PREVIOUS MODE SUPERVISOR | 
03 AO C8 8F 149 4 #<PSLSA_FPD'!PSLSM_TP!PSLS$M_CM>a-24,3(R0) ; RESET iTS IN PSL 
0 —00000000'9F  9€ 146 5 MOVAB @#EXESERIT IMAGE,-=(RO) ;RESET USER RETURN ADDRES | 
FB AO 9980 F 3¢ 15 6 MOVZWL #sss CLIFRCEXT,-8(RO) SET EXIT CAUSE INTO SAVED RO 
F4 —E SA C3 0158 SUBL3 SP,WRK_L_SAVSP(R10) :SAVE RELATIVE ADDRESS OF TOP OF STACK | 
F8 AA 7D 0160 8 mova K'L_SAVAP(R10) ,RB TRETRIEVE PREVIOUS ARGUMENT AND FRAME POINTE 
68 58 7D 0164 9 MOV 8, PRC_L_SAVAP(R11) 7SAVE_IN PROCESS WORK AREA 
BA AA 3A ce 167 0 SUBL Rid .WRE_C_RS NXT(R10) CONVERT PARSE POINTER TO RELATIVE ADDRESS 
AA 5A C2 0168 1 SUBL_ R10 ,WRK-L“RSLEND(R10) ;CONVERT END POINTER TO RELATIVE ADDRESS 
08 AO 9 16 : MOVAB 8(RO) ,R? :GET ADDRESS OF END OF ARGUMENT LIST + 
57 5D C2 0173 SUBL FP,R7 SCALCULATE LENGTH OF CALL FRAME AND ARGLIST 
5€ 27 C 1% 4 SUBL _R7.SP :CALCULATE NEW TOP OF STACK A 
$6 60 57 28 OT 5 MOVC. R7. (FP), (SP) :MOVE CALL FRAME A NT LIST 
37 5D BE C3 O17 6 SuBL 3 SP.FPLR? :CALCULATE LENGTH OF COMMAND BUFFER AND ARGL | 
Sp 59 2 ¢ 181 SUBL3 = R7.R9,FP [CALCULATE NEW TOP OF STACK ADDRESS | 
6D. , of 7 185 8 MOVE §=—s-R7. (SP), CFP) SCOLLAPSE STACK REMOVING FIRST COMMAND CONTE | 
F4 A 33 CO 0189 ADDL  R9.WRK_L_SAVSP(R9) :CALCULATE NEW COMMAND STACK POINTER | 
BAAD 59 CO 018D 340 ADDL R9.WRK“L“RSLNXT (RO) [CONVERT PARSE POINTER TO REAL ADDRESS | 
B6 A959 co 191 341 ADDL = R9.WRKTL“RSLEND(R9) :CONVERT END POINTER TO REAL ADDRESS | 
195 4g RET :RETURN TO KESEXIT IMAGE | 
196 34 : N TO OR 208 | 
5C 05 196 44 10$:  TSTL  PRC_L_INDEPTH(R11) ZINDIRECT LEVEL ZERO? | 
1 45 BEQL i1F E 
FEG2" 30 198 346 BsBu DCL SUNSTACK ZUNSTACK INDIRECT LEVEL | 
0&6 78 aB «2O00-séSS 145 48 208: pace #PRCV IRUNDWN,PRC_B_IMGFLAG(R11),30$ ;SKIP_IF IMAGE ALREADY RUNDOWN 
1A 4 RUNOWN_S #PSLSC_U ; RUN MAGE (THE HARD WAY) | 
18 8A O1AE 350 BICB “#<PRC_M_EXEONLY ! PRC_M_PRIV>,- ;SINCE IMAGE IS NOW GONE 


H 12 
RUN DOUN IMAGE AND INDIRECT LEVELS "RSEE= 1982 88:27:83 FORME H aR eR Ra: «| P88 EL, 
OOAF CB 18 PRC_B_FLAGS2(R11) ;NO NEED TO PROTECT IT 
ws ON El ion : 
i “DSABL LSB 
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| v04=500 SHUT DOWN IMAGE 27865-1383 33:27:83 POLL SRCTIMAGECTRI MAR: 1 i (b> 
186 5 Ss -SBTTL SHUT DOWN IMAGE 
184 5 3 DCLSSHUTDOWN = SHUT DOWM IMAGE 
1B4 § ; THIS ROUTINE IS CALLED TO CLOSE ALL FILES OPENED BY THE JUST EXECUTED IMAGE 
Ht e} 3; AND TO CLOSE THE IMAGE ACTIVATION FILE. 
184 $¢ : INPUTS: 
1B4 364: R10 = BASE ADDRESS OF COMMAND WORK AREA. 
184 65 : R11 = BASE ADDRESS OF PROCESS WORK AREA. 
184 e : OUTPUTS: 
1B4 63 : ALL FILES OPENED BY THE JUST EXECUTED IMAGE ARE CLOSED BY CALLING RMS-32 | 
1B4 0; DATA RECORDS ARE SKIPPED IN THE INPUT STREAM, AND THE IMAGE FILE IS CLOSED. 
184 371: IF ANY DATA RECORDS ARE SKIPPED, THE INPUT BUFFER POINTER IS ADJUSTED 
1B4 re : AND EOL SET FOR THE LAST RECORD READ (FOR POSSIBLE FUTURE DCLSFLUSH 
154 ee ; OPERATION). 
184 375: R4 DESTROYED 
1B4 ds : R2 = NUMBER OF DATA RECORDS SKIPPED IN THE INPUT STREAM. 
ibe 8h 
1B4 8 DCLSSHUTDOWN: : :SHUT DOWN IMAGE 
48 10 0184 80 BSBB  DCLSRMSRUNDWN SRUNDOWN RMS-32 FILES 
5314 a8 00 1B6 1 MOVL §PRC_L_INDINPRAB(R11),R3 [GET ADDRESS OF INDIRECT RAB 
7E 110A D OBA 8 MOVG RABSWTRFA(R3),-(SP) SSAVE RFA OF LAST COMMAND 
36 18 A3 00 £0 1B 8 BBS #DEVSU_REC,RABSL_CTX(R3),30$  :IF SET, RECORD ORIENTED DEVICE 
0 1¢$ 84 BITB #PRC_M-CHAIN!PRC-M_CMD,- :CHAIN A/O COMMAND? 
OOAF CB gic 85 PRC_6_FLAGS2(R11) : 
2F 612 «201C8 $ BNEQ [NO SKIP IF EITHER IS PENDING 
O1CA 38 SETBIT RABSV_PPF_IND,RABSW_ISI(R3) [CONVERT TO NONPRIVILEGED ISI 
52. D6 O1CF 388 20$: INCL S INCREMENT NUMBER OF RECORDS SKIPPED 
101 389 $GET  RAB=(R3) [GET NEXT RECORD FROM INDIRECT FILE 
6 50 9 O1DA 390 BLBC [IF LBC FINISHED 
54 22 A C 01DD 386.391 MOVZWL RABSW_RSZ(R3),R4 [SAVE LENGTH OF RECORD 
Ec (11 1E1 3 RB 20$ 
iE 94 25$ CLRBIT RABSV_PPF_IND,RABSW_ISI(R3) SCONVERT BACK TO PRIVILEGED ISI 
52 pv? OIE 95 DECL RR TADJUST FOR LAST RECORD 
0D 13 O1FA 39 BEQL 30S [SKIP IF NO RECORDS READ IN 
54 288344 9E O16C 39 MOVAB @RABSL_RBF(R3)CR4),R4 [GET ADDR. OF END OF LAST RECORD 
64 96 O1F1 98 CLRB ) SET EOL IN BUFFER 
F4BE CA FF AG 9€ 13 399 MOVAB =1(R4),WRK_L_CHARPTR(R10) SADJUST "GET CHAKACTER' POINTER 
10 a3. BE «= 7Ds«OO1F9 = 401-308 MOVQ (SP) +, RABSW_RFA(R3) ;RESTORE RFA OF LAST COMMAND 
te WC , 
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rive te RMS RUND arSEE TIERS S8:2F:83 HBECMES Heer yoRrOo = Page 13, 


es 
2 


ite ¢ 5 im -SBTTL RMS RUNDOWN AN IMAGE 
Ife 4 5 : DCLSRMSRUNDWN = RMS RUNDOWN AN IMAGE 
ite 4 3 : THIS ROUTINE IS CALLED TO CLOSE ALL FILES OPENED BY THE JUST EXECUTED IMAGE 
if rt 3; AND TO CLOSE THE IMAGE ACTIVATION FILE. 
EE Ste ¢ INPUTS: | 
| ii 
Ire 416 : OUTPUTS: 
1FE 213 : ALL FILES OPENED BY THE JUST EXECUTED IMAGE ARE CLOSED BY cM LING RMS | 
a 133 3 DATA RECORDS ARE SKIPPED IN THE INPUT STREAM, AND THE IMAGE FILE IS rast. | 
We ig 
1FE 4 i DCLSRMSRUNDWN: : ;RMS RUNDOWN THE IMAGE 
FDOFF*® 30 1FE 426 BSBW DCLSALLOCBUF SALLOCATE ah AND Lt Ate 4 
62 84 BF 9A 01 425 10$ MOVZBL #WRK_C_MSGBUFSIZ,(R2) sRESET SIZE O vaiee GE ye FER 
0 DD 05 4 § PUSHL #0 :R UN D Sony IMA ILES 
6 OF 07 4 PUSHAB (R2) SET ADDRESS OF MESSAGE BUFFER DESCR 
00000000 ' 9F 2 43 0209 428 CALLS #2, a4#SYSSRMSRUNDWN : RUNDOWN rae FILES 
fe E 021 429 L " sIF RUNDOWN FAILURE CONTINUE WITH NE 
5E 008C g& SE 1 430 MOVAB WRK_C_MSGBUFSIZ+8(SP),SP :DEALLOCATE MESSAGE BUFFER AND DESCR | 
04 1 431 CLRL R2 sCLEAR COUNT OF RECORDS SKIPPED 
05 1A 4 § RSB sRETURN 
0218 43 
0218 434 ~END 
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Symbol table 4=SEP=1984 23:41:00 COCL.SRCJIMAGECTRL.MAR; 1 (10) | 
PRC_V_YLEVEL : WRK_G_BUFFER FEEEEGS® 
PRC“W-ASTIOSB C WRK-G_INPBUF FEEEESS | 
PRC“W-ASTRETN C WRK-G-RESULT FFFFFOBO 
PRC-W-ASTSTATUS cs WRK “K“LENG FFFFF 486 
PRC “W-ATTMBX A WRK“L"CHARPTR FFFFFGBE 
PRC ~W~FLAGS 68 WRK-L-DISALLOW FFFFFFE6 
PRC-W~INPCHAN 64 WRK“L"ERRORRTN FFFFFOAE 
PRC_W~ONLEVEL 6A WRK-L-EXPANDPTR FEEEEGBG | 
PRC_W-OUTIFI 114 “LIIMAG FEEEErE | 
PRC-W-OUTISI 0116 WRK-L-“MARKPTR FFFFFGSA | 
PRC~W_OUTMBXCHN OOCA “L“PAR FFFFFFD 
PRC—~W~OUTMBXREF 0 QO0CE WRK-L~PMPTADDR FFFFFOA | 
PRC~W-OUTMBXSI CC WRK-L-PROMPTRIN FFFFFOA 
PRC~W~PMPTCTRL 90000F | WRK"L-PROPTR FFFFFFC6 | 
PRC-W-WAITIOSB 000066 WRK-L~QUABLK FFFFFFCA | 
PSLSC_SUPER = BONN WRK-L-READRTN FFFFFOAA | 
PSLSC"USER = 000000 WRK-L-RECALLPTR FFFFFFEA 
cM = tt 44 WRK_L_RSLEND FFFFFFB6 | 
PSLSM_FPD = 08000000 WRK-L-RSLNXT FFFFFFBA 
“TP : 40000000 WRK-L~SAVAP FFFFFFFS 
PSLS$V—CURMOD = 0000001 WRK-L-SAVFP FFFFFFFC 
PSLSV~PRVMOD = 00000016 WRK-L~SAVSP FFFFFFRG 
PTR_B-LEVEL 0000004 WRK-L~SIGNALRTN FEEEEEDG 
PTR_B_NUMBER 0000005 WRK-L-SPECRTN FFFFF9B 
PTRB_PARMCNT 00000066 WRK-L-TAB. VEC FFFFFFDE 
PTR—B-VALUE 00000000 “L“VERB FEFEEEBE 
PTR~C-LENGTH 0000000¢ K"W"FLAGS FFFFFFF | 
R7K~COMDQUAL = 00000000 WRK -W"FLAGS2 FFFFFFF2 
PTR_K—ENDL INE = 00000004 WRK~W~IMGCHAN FFFFFFEE | 
PTR_-K-LENGTH 9990000¢ WRK ~W~PMPTLEN FFFFFOSE 
PTR-L-DESCR 0000000 _$$_ = Q00000EF 
PTR-L-ENTITY 0000008 
“CTX = 00000018 
L_RBF = 4 645843 | 
RABSV~PPF _IND = 000000 
$W_ISI = 0000000 
RABSW_RFA = 0000001 
RABSW = 0000002 | 
RESTORE PRIVS OOOOOFA R 02 
SS$_CLIFRCEXT = 00000980 | 
$$$ DEBUG = 0000046C 
SYSSDELPRC 7 eeeeeeee GX 02 
SYS$GET teense GX | 
SYSSRMSRUNDWN omens SF | 
SYSSRUNDWN teeerene GX 
SYSSSETPRV eeeereee GX 0 | 
TES TMODE 000000CC R 0 | 
WRK_B_CMDOPT FFFFFFC 
WRK~B-MAXPARM FFFFFFDO | 
WRK-B-MINPARM FFFFFFDI 
WRK~B~PARMCNT FFFFFECE | 
WRK~B” PARMSUM FFFFFECE 
WRK—~B~RECALLCNT FFFFFFCS 
WRK~B~ VALLEV FFFFFFCS 
WRK~B-VERBTYP FEFEEECZ 
WRK~C~LENGTH FFFFF G86 
WRK_C_MSGBUF S1Z = 00000084 
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Psect synopsis 4=SEP=1984 23:41:00 ([CDCL.SRCJIMAGECTRL.MAR;1 (10) 


! Psect synopsis ! 


¢eeeseoanesnoeses st 


PSECT name Allocation PSECT No. Attributes 
ABS . 00000000 <( -? 0( 0.) NOPIC USR CON ABS LCL wOsee NOEXE NORD nowny WOVEC BYTE 

SABSS FFFFFFFC (¢ » 1¢ 1.) NOPIC USR CON’ ABS LCL NOSHR EXE RD NOVEC BYTE 

DCLSZCODE 00000218 (« 539.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR' EXE RD NOURT NOVEC BYTE 
pmecesosren ew mar oemesaaenese | 

-- H Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 11 00 + 80:09 - 9 00:00:00.97 

Command processing 88 ses Be 0 BR + 308-8 

Pass 318 Bo 380: | 28 00:00:43.86 

Symbol table sort 0 00:00:01.66 88392: 08.43 

Pass 2 85 8888: 85°50 00:00:08. 

Symbol table output 23 00:00:00. 00:00:00.7 

Psect synopsis output 2 00:00:00.0 00:00:00.1 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 527 00:00:17.12 00:01:06.52 


The working set_Limit was 1350 pages. 
62782 bytes (123 pages) of virtual memory were used to buf fer the intermediate c 
There were 60 pages of symbol table space allocated to hold 1143 non-local and 19 local symbols. 
434 source Lines were read in Pass 1, producing 14 object records in Pass 2. 
43 pages of virtual memory were used to define 28 macros. 


eee nnee se see em eemoee ener amea $ 


Macro Library name Macros defined 
"$255$DUA28: SYSLISISVSOL0NL8, MLB; 1 0 
eeittian UAge: .- Tet OT i o 

$5eespuase; 8: eye IBISTARLET. hie: 2 if 

TOTALS (all Libraries) 22 


1370 GETS were required to define 22 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: IMAGECTRL/OBJ=OBJ$: IMAGECTRL MSRCS$: IMAGECTRL/UPDATE=(ENHS$: IMAGECTRL) +EXECML$/LIB+LIB$:DCL/LIB+*SYSS$SLIBRARY:SYSBLDMLB/L | 
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